﻿Public Class LandschaftstexturMauer
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "MAUER"
        Landschaftsname = "Mauer"
        Deckung = 0
        Tarnung = False
        Select Case DataSettings.CommanderWarsGameModus
            Case Is <= CommanderWarsGameModi.AdvanceWarsDS
                KP = 99
            Case CommanderWarsGameModi.AdvanceWarsDC
                KP = 99
            Case Else
                KP = 100
        End Select
        TexturenLaden(New String() {"Mauer+O+W", "Mauer+N+W", "Mauer+N+O", "Mauer+N+S", "Mauer+O+S", "Mauer+S+W", "Mauer+W", "Mauer+O", "Mauer+N", "Mauer+S", "Mauer+N+O+S", "Mauer+O+S+W", "Mauer+N+S+W", "Mauer+N+O+W", "Mauer+N+O+S+W"})
        Normal = 0
        Ausrichtungslandschaften = New String() {"MAUER"}
        WirdZu = "EBENE+SCHROTT"

    End Sub

    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, 0, 0, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"EBENE", "WUESTE", "SCHNEE", "OEDLAND"}
    End Function
End Class
